home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / what goes here (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  97 lines
  1. 5 gosub60100:clr
  2. 10 dimd$(23),a(4),b(25),c(25),g(25):printchr$(8)chr$(142)
  3. 20 d$(0)=chr$(19):forx=1to23:d$(x)=d$(x-1)+chr$(17):next
  4. 30 restore:print"[147]            what goes here?"
  5. 40 print"            by penny degroff"
  6. 70 forx=54272to54295:pokex,0:next:poke54296,15
  7. 80 poke54277,5:poke54284,10
  8. 90 readh,l:ifh=0then130
  9. 100 poke54273,h:poke54280,h:poke54272,l:poke54279,l
  10. 110 poke54276,17:poke54283,33:ford=1to200:next
  11. 120 poke54276,16:poke54283,32:goto90
  12. 130 forx=54272to54284:pokex,0:next
  13. 140 forx=1to4:reada(x):next:b(1)=1471:c(1)=1488
  14. 150 forx=2to5:b(x)=b(x-1)+2:c(x)=c(x-1)+2:next
  15. 160 forx=6to25:b(x)=b(x-5)+80:c(x)=c(x-5)+80:next
  16. 170 poke53280,6:poke53281,14:poke646,6
  17. 180 printd$(12)tab(5)"select difficulty level(1-5)"
  18. 185 print"            press q to quit."
  19. 190 getz$:ifz$>"0"andz$<"6"thene=val(z$):goto200
  20. 193 ifz$="q"orz$="[209]"thengosub60000:goto185
  21. 198 goto190
  22. 200 print"[145][145][145]";:fora=1to3:print"                                     ":next
  23. 210 printd$(11)tab(11)"match characters"
  24. 220 printtab(11)"<1> at random":printtab(11)"<2> in order"
  25. 230 getz$:f=val(z$):iff<1orf>2then230
  26. 240 iff=1thenforx=1to25:g(x)=0:next
  27. 250 print"[145][145][145]";:fora=1to3:print"                                  ":next
  28. 260 printd$(10)tab(6)"[176][192][178][192][178][192][178][192][178][192][174]      [176][192][178][192][178][192][178][192][178][192][174]"
  29. 270 printtab(6)"[221] [221] [221] [221] [221] [221]      [221] [221] [221] [221] [221] [221]":ife=1then300
  30. 280 forx=1toe-1:printtab(6)"[171][192][219][192][219][192][219][192][219][192][179]      [171][192][219][192][219][192][219][192][219][192][179]"
  31. 290 printtab(6)"[221] [221] [221] [221] [221] [221]      [221] [221] [221] [221] [221] [221]":next
  32. 300 printtab(6)"[173][192][177][192][177][192][177][192][177][192][189]      [173][192][177][192][177][192][177][192][177][192][189]"
  33. 310 forx=1toe*5:pokeb(x)+54272,1:pokeb(x),a(int(rnd(0)*4)+1):next:ti$="000000"
  34. 312 print:print
  35. 315 printtab(12)"[145]time remaining:"15-val(ti$)"[157] "
  36. 320 ifti$<>"000015"then315
  37. 330 forx=1toe*5:pokeb(x)+54272,14:next
  38. 340 printd$(5)tab(11)"[176][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][174]"
  39. 350 printtab(11)"[221]1-o[221]2-x[221]3-[214][221]4-[215][221]"
  40. 360 printtab(11)"[173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]"
  41. 370 poke646,13:s=0:printd$(3)tab(9)"characters matched: 0":i=0
  42. 375 print"";:fora=1to(e*3)+11-(e-1):print"";:next
  43. 378 print"            press q to quit.   "
  44. 380 i=i+1:ifi>e*5then560
  45. 390 iff=2then420
  46. 400 r=int(rnd(0)*e*5)+1:ifg(r)=1then400
  47. 410 g(r)=1:pokec(r),63:pokec(r)+54272,1:goto430
  48. 420 pokec(i),63:pokec(i)+54272,1
  49. 430 getz$:ifz$>"0"andz$<"5"then440
  50. 433 ifz$="q"thengosub60060:ifnot(ok)then30
  51. 438 goto430
  52. 440 j=val(z$):iff=1then480
  53. 450 pokec(i),a(j):pokec(i)+54272,1:pokeb(i)+54272,1
  54. 460 ifpeek(b(i))=peek(c(i))then520
  55. 470 goto500
  56. 480 pokec(r),a(j):pokec(r)+54272,1:pokeb(r)+54272,1
  57. 490 ifpeek(b(r))=peek(c(r))then520
  58. 500 poke54277,45:poke54272,20:poke54273,5:fort=1to3:poke54276,33
  59. 510 ford=1to150:next:poke54276,32:ford=1to30:next:next:goto550
  60. 520 poke54277,15:poke54272,70:poke54273,100:fort=1to3:poke54276,33
  61. 530 ford=1to75:next:poke54276,32:ford=1to20:next:next
  62. 540 s=s+1:printd$(3)tab(28)""s
  63. 550 ford=1to1500:next:goto380
  64. 560 poke646,7:printd$(23)tab(8)"game over....press space"
  65. 570 getz$:ifz$<>" "then570
  66. 580 goto30
  67. 600 data 16,195,21,31,18,209,22,96,28,49,25,30,31,165,37,162,33,135,0,0
  68. 610 data 15,24,86,87
  69. 60000 print"[145]  are you sure you want to quit? (y/n)"
  70. 60010 a=peek(203):ifa<>25anda<>39then60010
  71. 60020 ifa=39thenprint"[145]                                      [145]":return
  72. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  73. 60040 ifer<>63thenend
  74. 60050 load"hello connect",8
  75. 60060 print"";:fora=1to(e*3)+11-(e-1):print"";:next
  76. 60070 print"  are you sure you want to quit? (y/n)"
  77. 60080 a=peek(203):ifa<>25anda<>39then60080
  78. 60090 ok=-1:ifa=25thenok=.
  79. 60095 print"[145]            press q to quit.          ":return
  80. 60100 poke53280,14:poke53281,14
  81. 60110 printchr$(142)"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  82. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  83. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  84. 60140 fora=217to242:pokea,peek(a)or128:next
  85. 60150 print"          loadstar presents:"
  86. 60160 print"                               "
  87. 60170 print"           what goes here?      "
  88. 60180 print"                                "
  89. 60190 print"          by  penny degroff     "
  90. 60200 print"                                "
  91. 60210 print"           copyright  1987      "
  92. 60220 print"                                "
  93. 60230 print"                                "
  94. 60240 print"        press space to continue"
  95. 60250 ifpeek(203)<>60then60250
  96. 60260 return
  97.